home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2001 January / january_2001.iso / intercd / root / ^4Developers / VB / visbasdb / VBDB / VBDB Code / VB6 Code / Class 5 / QuickExample2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-31  |  2.9 KB  |  90 lines
  1. VERSION 5.00
  2. Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   2070
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   3900
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2070
  11.    ScaleWidth      =   3900
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin MSAdodcLib.Adodc Adodc1 
  14.       Height          =   375
  15.       Left            =   840
  16.       Top             =   1440
  17.       Width           =   2295
  18.       _ExtentX        =   4048
  19.       _ExtentY        =   661
  20.       ConnectMode     =   0
  21.       CursorLocation  =   3
  22.       IsolationLevel  =   -1
  23.       ConnectionTimeout=   15
  24.       CommandTimeout  =   30
  25.       CursorType      =   3
  26.       LockType        =   3
  27.       CommandType     =   1
  28.       CursorOptions   =   0
  29.       CacheSize       =   50
  30.       MaxRecords      =   0
  31.       BOFAction       =   0
  32.       EOFAction       =   0
  33.       ConnectStringType=   1
  34.       Appearance      =   1
  35.       BackColor       =   -2147483643
  36.       ForeColor       =   -2147483640
  37.       Orientation     =   0
  38.       Enabled         =   -1
  39.       Connect         =   "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=c:\VBDB\Working\Biblio.mdb"
  40.       OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=c:\VBDB\Working\Biblio.mdb"
  41.       OLEDBFile       =   ""
  42.       DataSourceName  =   ""
  43.       OtherAttributes =   ""
  44.       UserName        =   ""
  45.       Password        =   ""
  46.       RecordSource    =   "SELECT * FROM Titles"
  47.       Caption         =   "Adodc1"
  48.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  49.          Name            =   "MS Sans Serif"
  50.          Size            =   8.25
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       _Version        =   393216
  58.    End
  59.    Begin VB.Label Label2 
  60.       Caption         =   "Label2"
  61.       Height          =   495
  62.       Left            =   240
  63.       TabIndex        =   1
  64.       Top             =   600
  65.       Width           =   1215
  66.    End
  67.    Begin VB.Label Label1 
  68.       Caption         =   "Label1"
  69.       DataField       =   "Title"
  70.       DataSource      =   "Adodc1"
  71.       Height          =   495
  72.       Left            =   240
  73.       TabIndex        =   0
  74.       Top             =   120
  75.       Width           =   3375
  76.    End
  77. Attribute VB_Name = "Form1"
  78. Attribute VB_GlobalNameSpace = False
  79. Attribute VB_Creatable = False
  80. Attribute VB_PredeclaredId = True
  81. Attribute VB_Exposed = False
  82. Option Explicit
  83. Private Sub Form_Activate()
  84. Adodc1.RecordSource = "SELECT * FROM Titles ORDER BY Title"
  85. Adodc1.Refresh
  86. Adodc1.Recordset.MoveLast
  87. Adodc1.Recordset.MoveFirst
  88. Label2.Caption = Adodc1.Recordset.RecordCount
  89. End Sub
  90.